Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/T-Z/VideoStakGold.cpt/VideoStakGold/VideoStak ◊ Begin Here/background_2659.txt

Text File | 1988-04-27 | 92KB | 3,959 lines

-- background: 2659 from stack: in
-- bmap block id: 5614
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----

------------------------------------------
-- BACKGROUND SCRIPTS CONSISTING OF     --
-- USER-DEFINED COMMANDS (UCMD) & IDLER --
------------------------------------------

--------------------------
-- USER-DEFINED COMMAND --
--------------------------

On REHILITE tapeButtonNo

  -- PUTTING THE BTN NUMBER INTO A GLOBAL
  -- WHERE OTHER COMMANDS CAN GET TO IT:
  global hiTapeButton
  put tapeButtonNo into hiTapeButton

  -- SET THE HILITES RIGHT EVEN AFTER A SCROLL:
  repeat with i = 5 to 16
    set hilite of bkgnd btn i to i = tapeButtonNo
  end repeat

End REHILITE

-----------------
-- MORE UCMD'S --
-----------------

On HELPER theRes

  -- VIZ DISSOLVE TO SCREEN MASK:
  set cursor to 4
  lock screen
  show fld "MaskScreen"
  unlock screen with visual dissolve fast

  -- GET TV CURSOR & SHOW HELP PICT:
  set cursor to 27902
  dispPICT theRes,0,0,24,40
  get the result  -- CATCHES ERRORS
  set cursor to 4

  -- MASK SCREEN & VIZ DISSOLVE TO CONTENTS:
  lock screen
  hide fld "MaskScreen"
  unlock screen with visual dissolve fast

  -- POST ERRORS IN MSG BOX:
  if IT contains "ot" then put IT

End HELPER

-----------------
-- MORE UCMD'S --
-----------------

On FINDING theLine

  -- CHECK TO SEE IF WE'RE SHOOTIN' BLANKS:
  if line theLine of field "Window" = empty then exit finDing

  -- DECLARE GLOBALS:
  global findIt,hiButton,classmaster

  -- SETTING UP FOR THE FIRST & SECOND (VIA RETURNKEY) FIND:
  put line theLine of field "Window" into findIt
  if char 1 of findIt = "∂" then delete char 1 of findIt

  -- HERE WE GO A-FINDING:
  set cursor to 4
  lock screen

  -- FOR A TITLE SEARCH:
  if hiButton = 30 then
    if the selectedField = "bkgnd field 16" then go to next card  -- PREVENTS RE-FINDING!
    find whole findIt in field "Title"
    get the result
    if IT ≠ empty then
      unlock screen with visual dissolve fast
      answer "Couldn't find" && quote & findIT & quote
      exit finDing
    end if
    unlock screen with visual dissolve fast
    select the foundChunk
    exit finDing
  end if

  -- FOR A STAR SEARCH:
  if hiButton = 31 then
    if the selectedField = "bkgnd field 17" then go to next card  -- PREVENTS RE-FINDING!
    find whole findIt in field "Star"
    get the result
    if IT ≠ empty then
      unlock screen with visual dissolve fast
      answer "Couldn't find" && quote & findIT & quote
      exit finDing
    end if
    unlock screen with visual dissolve fast
    select the foundChunk
    exit finDing
  end if

  -- FOR A DIRECTOR SEARCH:
  if hiButton = 32 then
    if the selectedField = "bkgnd field 18" then go to next card  -- PREVENTS RE-FINDING!
    find whole findIt in field "Director"
    get the result
    if IT ≠ empty then  -- NOT FOUND!
      unlock screen with visual dissolve fast
      answer "Couldn't find" && quote & findIT & quote
      exit finDing
    end if
    unlock screen with visual dissolve fast
    select the foundChunk
    exit finDing
  end if

  -- FOR A CLASS SEARCH:
  if hiButton = 33 then
    if the selectedText contains "√õ " then
      go to next card
    end if
    find whole "√õ " & findIt in fld findIt
    -- THE FIELD NAME IS IN THE CLASS BEING FOUND
    get the result
    if IT ≠ empty then  -- NOT FOUND!
      unlock screen with visual dissolve fast
      answer "Couldn't find" && quote & findIT & quote
      exit finDing
    end if
    unlock screen with visual dissolve fast
    select the foundChunk
    exit finDing
  end if

  -- JUST IN CASE AN INDEX WAS NOT SELECTED:
  if hiButton = empty then
    unlock screen
    answer "Click an index tab first!"
  end if

End FINDING

-----------------
-- MORE UCMD'S --
-----------------

On CLASSIT theNo

  -- CONDITION ONE WHERE THE CLASS IS AN "X" BOX:
  if first char of bkgnd field theNo = "√õ" then
    put "Ω" into char 1 of bkgnd field theNo
    exit classIt
  end if

  -- CONDITION TWO WHERE THE CLASS IS A NON "X" BOX:
  if first char of bkgnd field theNo = "Ω" then
    put "√õ" into char 1 of bkgnd field theNo
  end if

End CLASSIT





-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=346 top=39 right=268 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 19
-- part name: Window


-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=322 top=288 right=301 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Up
----- HyperTalk script -----

--------------------
-- UP ARROW STUFF --
--------------------

On MOUSESTILLDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpUpDown
    exit mouseStillDown
  end if

  global lineNo,master,hiTapeButton,getOutaHere
  put 1 into getOutaHere -- DEACTIVATES MOUSEUP!

  -- IF YOU'RE ALREADY AT THE TOP, WHY BOTHER?
  if first line of field "Window" = first line of master then exit mouseStillDown

  -- THIS'LL MOVE A SCREEN OF THE INDEX:
  if the commandKey is down or the shiftKey is down then
    if lineNo ≤ 12 then put 13 into lineNo
    subtract 12 from lineNo
    lock screen
    put line lineNo to lineNo + 11 of master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseStillDown
  end if

  -- UNDER ORDINARY CIRCUMSTANCE, SINGLE SCROLLING
  subtract 1 from lineNo
  put line lineNo to (lineNo  + 11) of master into field "Window"

End MOUSESTILLDOWN


On MOUSEUP

  -- GET HELP IF OPTIONKEY IS DOWN:
  if the optionKey is down and the commandKey is not down then
    helper helpUpDown
    exit mouseUp
  end if

  global lineNo,master,hiTapeButton,getOutaHere

  -- IF MOUSESTILLDOWN WAS ACTIVATED, GET OUT:
  if getOutaHere = 1 then
    put empty into getOutaHere
    exit mouseUp
  end if

  -- IF YOU'RE AT TOP OF LIST, GET OUT:
  if first line of field "Window" = first line of master then exit mouseUp

  -- GO TO THE TOP FAST:
  if the shiftkey is down and the commandKey is down then
    if first line of field "Window" = first line of Master then exit mouseUp
    put 1 into lineNo
    lock screen
    put line 1 to 12 of Master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseUp
  end if

  -- FOR MOVING A SCREEN FULLA INDEX AT ONCE:
  if the commandKey is down or the shiftKey is down then
    if lineNo ≤ 12 then put 13 into lineNo
    subtract 12 from lineNo
    lock screen
    put line lineNo to lineNo + 11 of master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseUp
  end if

  UNDER ORDINARY CIRCUMSTANCES, LINE-BY-LINE:
  if lineNo > 1 then subtract 1 from lineNo
  put line lineNo to (lineNo  + 11) of master into field "Window"

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 35 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=322 top=306 right=319 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Down
----- HyperTalk script -----

--------------------------------
-- DOWN ARROW STUFF LIKE UP   --
-- SEE COMMENTARY IN UP ARROW --
--------------------------------

On MOUSESTILLDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpUpDown
    exit mouseStillDown
  end if

  global lineNo,master,getOutaHere

  put 1 into getOutaHere

  if last line of field window = last line of master then exit mouseStillDown

  if the commandKey is down or the shiftKey is down then
    add 12 to lineNo
    if lineNo + 11 > the number of lines in master then put the number of lines in master - 11 into lineNo
    lock screen
    put line lineNo to lineNo + 11 of master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseStillDown
  end if

  add 1 to lineNo
  put line lineNo to (lineNo + 11) of master into field "Window"

End MOUSESTILLDOWN


On MOUSEUP

  -- GET HELP IF OPTIONKEY IS DOWN:
  if the optionKey is down and the commandKey is not down then
    helper helpUpDown
    exit mouseUp
  end if

  global lineNo,master,getOutaHere

  if getOutaHere = 1 then
    put empty into getOutaHere
    exit mouseUp
  end if

  if last line of field window = last line of master then exit mouseUp

  if the commandKey is down and the shiftKey is down then

    if last line of field window = last line of master then exit mouseUp
    put the number of lines in Master - 11 into lineNo
    lock screen
    put line (the number of lines in Master - 11) to (the number of lines in Master) of Master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseUp

  end if

  if the commandKey is down or the shiftKey is down then
    add 12 to lineNo
    if lineNo + 11 > the number of lines in master then put the number of lines in master - 11 into lineNo
    lock screen
    put line lineNo to lineNo + 11 of master into field "Window"
    unlock screen with visual dissolve fast
    exit mouseUp
  end if

  add 1 to lineNo
  put line lineNo to (lineNo + 11) of master into field "Window"

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------

---------------------------------------------
-- "BEEN DOWN SO LONG LOOKS LIKE UP TO ME" --
-- FROM THE BOOK BY RICHARD FARINA         --
---------------------------------------------





-- part 69 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=24 top=200 right=212 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Action
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 70 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=24 top=212 right=224 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Arts
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 71 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=24 top=224 right=236 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Comedy
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 72 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=92 top=200 right=212 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Drama
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 73 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=92 top=212 right=224 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Fantasy
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 74 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=92 top=224 right=236 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Horror
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 75 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=160 top=200 right=212 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Kids
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 76 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=160 top=212 right=224 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Music
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 77 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=227 top=212 right=224 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Thriller
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 78 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=160 top=224 right=236 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Romance
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 79 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=227 top=200 right=212 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Special
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 80 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=227 top=224 right=236 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Western
----- HyperTalk script -----

--------------------------------
-- CLASSIFICATION FIELD STUFF --
--------------------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClass
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 81 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=493 top=288 right=301 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UpAll
----- HyperTalk script -----

------------------
-- UP ALL STUFF --
------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpAllUpDown
    exit mouseUp
  end if

  global lineNo,master,lineNo

  -- IF YOU'RE ALREADY AT THE TOP, EXIT:
  if first line of field "Window" = first line of Master then exit mouseUp

  -- PUT FIRST 12 LINES IN INDEX WINDOW
  lock screen
  put line 1 to 12 of Master into field "Window"
  put 1 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 82 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=493 top=306 right=319 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DownAll
----- HyperTalk script -----

---------------------------------------
-- DOWN ALL ARROW STUFF LIKE UP ALL  --
-- SEE COMMENTARY IN UP ALL ARROW    --
---------------------------------------

On MouseUp

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpAllUpDown
    exit mouseUp
  end if

  global lineNo,master,lineNo

  if last line of field window = last line of master then exit mouseUp

  lock screen
  put line (the number of lines in Master - 11) to (the number of lines in Master) of Master into field "Window"
  put the number of lines in master - 11 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 83 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=203 top=90 right=102 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Color
----- HyperTalk script -----

-----------------------
-- COLOR FIELD STUFF --
-----------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClrOwn
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 84 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=249 top=90 right=102 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Own
----- HyperTalk script -----

---------------------
-- OWN FIELD STUFF --
---------------------

On MOUSEDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpClrOwn
    exit MOUSEDOWN
  end if

  -- MAKE FIRST CHAR INTO A CHECK BOX:
  if the userlevel ≠ 1 then classIt the number of me

End MOUSEDOWN

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 91 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=61 top=41 right=56 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Title
----- HyperTalk script -----

---------------------------------------
-- TITLE FIELD OPEN/CLOSEFIELD STUFF --
---------------------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpTitStrDir
    exit OPENFIELD
  end if

  -- STORES OLD CONTENTS FOR LATER:
  global theFirstTitle,fieldIsOpen
  put empty into theFirstTitle
  put line 1 of me into theFirstTitle
  put number of me into fieldIsOpen
  -- NOW CLOSEFIELD GETS SENT ON ANY CLICK!
  -- THIS WILL FORCE AN INDEX ADJUSTMENT!

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------

On CLOSEFIELD

  global hiButton,TitleMaster,theFirstTitle,lineNo
  global newTitle,fieldIsOpen,labelMaster,master
  put empty into fieldIsOpen

  -- PUT RETURN AT END OF LINE SO SELECT LOOKS NICE:
  -- (HAS TO BE DONE SINCE FIELD MAKES RETURN = TAB)
  if last char of line 1 of me ≠ return then
    put return after line 1 of me
  end if

  -- COMPARES OLD TITLE AND NEW:
  put empty into theNewTitle
  put line 1 of me into theNewTitle
  if theFirstTitle = theNewTitle then exit closeField

  -- ADJUSTING THE INDEX:
  set cursor to 4
  put "Adjusting your title index..."
  lock screen
  set lockmessages to true

  -- GET THE HIGHEST NUMBER OF ITEMS:
  if the number of items in theFirstTitle > the number of items in theNewTitle then
    put the number of items in theFirstTitle into noItems
  else
    put the number of items in theNewTitle into noItems
  end if

  -- THE OLD TITLE GETS DONE FIRST:
  repeat with i = 1 to noItems

    -- CHECK FOR EMPTY:
    if item i of theFirstTitle ≠ empty then
      put item i of theFirstTitle into firstTitle

      -- FILTER EXTRANEOUS CHARS OUT OF TITLE ITEM:
      if last char of firstTitle = return then
        delete last char of firstTitle
      end if
      if first char of firstTitle = space then
        delete first char of firstTitle
      end if

      -- FIND OUT IF THIS TITLE EXISTS ELSEWHERE:
      put the number of this card into cardNo
      find whole firstTitle in fld number of me
      if the number of this card = cardNo then

        -- GET IT READY FOR THE INDEX ADJUSTMENT:
        if first char of firstTitle ≠ "∂" then
          put "∂" before firstTitle
        end if
        put the number of lines in char 1 to offset(firstTitle,TitleMaster) of TitleMaster into firstLine

        -- DELETE IF NECESSARIO:
        if line firstLine of TitleMaster = firstTitle then
          delete line firstLine of TitleMaster
        end if

      else

        -- THIS IS WHEN THE TITLE EXISTS ELSEWHERE:
        go to card cardNo  -- BACK TO ORIG CARD
        if first char of firstTitle ≠ "∂" then
          put "∂" before firstTitle
        end if
      end if

    end if

    -- CHECK NEW TITLE FOR EMPTIES:
    if item i of theNewTitle ≠ empty then
      put item i of theNewTitle into newTitle

      -- FILTER EXTRANEOUS CHARS OUT OF TITLE ITEM:
      if first char of newTitle = space then
        delete first char of newTitle
      end if
      if first char of newTitle ≠ "∂" then
        put "∂" before newTitle
      end if
      if last char of newTitle = return then
        delete last char of newTitle
      end if

      -- TELLS YOU WHERE IN INDEX IT IS:
      put the number of lines in char 1 to offset(newTitle,TitleMaster) of TitleMaster into newLine

      -- TRY TO PUT NEW TITLE INTO THE TITLE INDEX:
      if line newLine of TitleMaster = newTitle then
      else
        put newTitle & return before TitleMaster
        put sortLines(TitleMaster) into TitleMaster
      end if

    end if

  end repeat

  -- REFRESHES THE INDEX WINDOW & LABEL:
  if hiButton = 30 then
    put TitleMaster into master
    put line lineNo to lineNo + 11 of Master into fld "Window"
  end if

  -- DON'T FORGET THE VCR TAPE LABEL:
  put labelMaster into fld "Label"
  unlock screen with visual dissolve fast
  set lockmessages to false
  hide msg

End CLOSEFIELD




-- part 92 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=61 top=55 right=70 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Star
----- HyperTalk script -----

---------------------------------------
-- STAR FIELD OPEN/CLOSE STUFF       --
-- SEE TITLE FIELD FOR MORE COMMENTS --
---------------------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpTitStrDir
    exit openField
  end if

  global theFirstStar,fieldIsOpen
  put empty into theFirstStar
  put line 1 of me into theFirstStar
  put number of me into fieldIsOpen

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------

On CLOSEFIELD

  global hiButton,StarMaster,theFirstStar,lineNo,master
  global newStar,fieldIsOpen,labelMaster
  put empty into fieldIsOpen
  if last char of line 1 of me ≠ return then
    put return after line 1 of me
  end if

  put empty into theNewStar
  put line 1 of me into theNewStar
  if theFirstStar = theNewStar then exit closeField

  set cursor to 4
  put "Adjusting your star index..."
  lock screen
  set lockmessages to true

  if the number of items in theFirstStar > the number of items in theNewStar then
    put the number of items in theFirstStar into noItems
  else
    put the number of items in theNewStar into noItems
  end if

  repeat with i = 1 to noItems

    if item i of theFirstStar ≠ empty then

      put item i of theFirstStar into firstStar

      if last char of firstStar = return then
        delete last char of firstStar
      end if
      if first char of firstStar = space then
        delete first char of firstStar
      end if
      put the number of this card into cardNo

      find whole firstStar in fld number of me
      if the number of this card = cardNo then

        if first char of firstStar ≠ "∂" then
          put "∂" before firstStar
        end if

        put the number of lines in char 1 to offset(firstStar,StarMaster) of StarMaster into firstLine

        if line firstLine of starMaster = firstStar then
          delete line firstLine of StarMaster
        end if
      else
        go to card cardNo
        if first char of firstStar ≠ "∂" then
          put "∂" before firstStar
        end if
      end if

    end if


    if item i of theNewStar ≠ empty then

      put item i of theNewStar into newStar

      if first char of newStar = space then
        delete first char of newStar
      end if
      if first char of newStar ≠ "∂" then
        put "∂" before newStar
      end if
      if last char of newStar = return then
        delete last char of newStar
      end if

      put the number of lines in char 1 to offset(newStar,StarMaster) of StarMaster into newLine

      if line newLine of starMaster = newStar then
      else
        put newStar & return before StarMaster
        put sortLines(StarMaster) into StarMaster
      end if

    end if

  end repeat

  if hiButton = 31 then
    put StarMaster into master
    put line lineNo to lineNo + 11 of Master into fld "Window"
  end if

  put labelMaster into fld "Label"
  unlock screen with visual dissolve fast
  set lockmessages to false
  hide msg

End CLOSEFIELD




-- part 93 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=81 top=69 right=84 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Director
----- HyperTalk script -----

---------------------------------------
-- DIRECTOR FIELD OPEN/CLOSE STUFF   --
-- SEE TITLE FIELD FOR MORE COMMENTS --
---------------------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpTitStrDir
    exit OPENFIELD
  end if

  global theFirstDirector,fieldIsOpen
  put empty into theFirstDirector
  put line 1 of me into theFirstDirector
  put number of me into fieldIsOpen

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------

On CLOSEFIELD

  global hiButton,DirectorMaster,theFirstDirector,lineNo,master
  global newDirector,fieldIsOpen
  put empty into fieldIsOpen
  if last char of line 1 of me ≠ return then
    put return after line 1 of me
  end if

  put empty into theNewDirector
  put line 1 of me into theNewDirector
  if theFirstDirector = theNewDirector then exit closeField

  set cursor to 4
  put "Adjusting your director index..."
  lock screen
  set lockmessages to true

  if the number of items in theFirstDirector > the number of items in theNewDirector then
    put the number of items in theFirstDirector into noItems
  else
    put the number of items in theNewDirector into noItems
  end if

  repeat with i = 1 to noItems

    if item i of theFirstDirector ≠ empty then

      put item i of theFirstDirector into firstDirector

      if last char of firstDirector = return then
        delete last char of firstDirector
      end if
      if first char of firstDirector = space then
        delete first char of firstDirector
      end if
      put the number of this card into cardNo

      find whole firstDirector in fld number of me
      if the number of this card = cardNo then

        if first char of firstDirector ≠ "∂" then
          put "∂" before firstDirector
        end if

        put the number of lines in char 1 to offset(firstDirector,DirectorMaster) of DirectorMaster into firstLine

        if line firstLine of DirectorMaster = firstDirector then
          delete line firstLine of DirectorMaster
        end if
      else
        go to card cardNo
        if first char of firstDirector ≠ "∂" then
          put "∂" before firstDirector
        end if
      end if

    end if


    if item i of theNewDirector ≠ empty then

      put item i of theNewDirector into newDirector

      if first char of newDirector = space then
        delete first char of newDirector
      end if
      if first char of newDirector ≠ "∂" then
        put "∂" before newDirector
      end if
      if last char of newDirector = return then
        delete last char of newDirector
      end if

      put the number of lines in char 1 to offset(newDirector,DirectorMaster) of DirectorMaster into newLine

      if line newLine of DirectorMaster = newDirector then
      else
        put newDirector & return before DirectorMaster
        put sortLines(DirectorMaster) into DirectorMaster
      end if

    end if

  end repeat

  if hiButton = 32 then
    put DirectorMaster into master
    put line lineNo to lineNo + 11 of Master into fld "Window"
  end if

  put labelMaster into fld "Label"
  unlock screen with visual dissolve fast
  set lockmessages to false
  hide msg

End CLOSEFIELD




-- part 94 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=59 top=88 right=100 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Rating
----- HyperTalk script -----

------------------------
-- RATING FIELD STUFF --
------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRatMinYrs
    exit openField
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LINE 'HELPER' IN BKGND --
-----------------------------------




-- part 95 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=129 top=88 right=100 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Minutes
----- HyperTalk script -----

-------------------------
-- MINUTES FIELD STUFF --
-------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRatMinYrs
    exit OPENFIELD
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 96 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=172 top=88 right=100 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Year
----- HyperTalk script -----

----------------------
-- YEAR FIELD STUFF --
----------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRatMinYrs
    exit OPENFIELD
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 97 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=24 top=108 right=175 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Description
----- HyperTalk script -----

-----------------------------
-- DESCRIPTION FIELD STUFF --
-----------------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpDes
    exit OPENFIELD
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 113 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=248 top=277 right=289 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Date


-- part 132 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=347 top=44 right=58 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 133 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=63 right=77 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=82 right=96 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=101 right=115 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 136 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=120 right=134 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 137 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=139 right=153 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=158 right=172 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 139 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=177 right=191 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=196 right=210 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 141 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=215 right=229 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 142 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=234 right=248 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 143 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=253 right=267 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----

-- INDEX BTNS:

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexItems
    exit mouseUp
  end if

  -- CALLING ON THE HILITE/DEHILITE UCMD:
  reHiLite the number of me

  -- INVOKING A CUSTOM COMMAND THAT HAS ONE PARAMETER:
  finDing the number of me - 4

  -- THESE USER-DEFINED COMMNANDS (UCMD) ARE IN THE STACK SCRIPT!

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 144 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=176 top=234 right=250 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hidden
----- HyperTalk script -----
on mouseUp
  global findTitle,hiButton
  put line (number of me - 4) of field "Window" into findTitle
  set lockscreen to true
  find findTitle in field "Title"
  set hilite of bkgnd btn hiButton to true
  set lockscreen to false
end mouseUp



-- part 149 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=12 top=309 right=322 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----

-----------------------
-- HOME BUTTON STUFF --
-----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpHome
    exit mouseUp
  end if

  --DECLARE GLOBALS:
  global InstallBtn

  -- CHECK TO SEE IF VS BUTTON SHOULD BE INSTALLED:
  if the shiftkey is down or InstallBtn ≠ 1 then
    answer "Install VideoStak buttons on Home Card?" with "No" or "Yes" or "Cancel"
    if IT = "Cancel" then exit mouseUp
    if IT = "No" then
      set cursor to 4
      visual dissolve fast
      go Home
    end if

    -- THESE GUYS INSTALL A VS BUTTON ON THE HOME CARD:
    if IT = "Yes" then
      set cursor to 4
      put "This is a delicate operation. Takes several seconds."
      put 1 into InstallBtn
      put the short name of this stack into nuBtnName
      lock screen
      set visible of bkgnd btn id 159 to true
      set cursor to 4
      set userLevel to 5
      set the name of bkgnd btn id 159 to nuBtnName
      set cursor to 4
      choose button tool
      click at loc of bkgnd btn id 159
      domenu "Copy Button"
      set visible of bkgnd btn id 159 to false
      unlock screen
      set cursor to 4
      go home
      domenu "Paste Button"
      choose browse tool
      exit mouseUp
    end if
  else

    -- HERE'S WHAT HAPPENS IF YOU JUST WANTED HOME:
    set cursor to 4
    go home

  end if

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 150 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=47 top=309 right=322 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----

----------------------------
-- SHOW SORT BUTTON STUFF --
----------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpSort
    exit mouseUp
  end if

  global sortBy,selectAgain

  -- SHOW THE SORT STUFF:
  lock screen
  show bkgnd field "Sort"
  show bkgnd btn "Sort"
  show bkgnd btn "Cancel"
  unlock screen with visual dissolve fast

  -- THIS SELECTS THE TITLE (DEFAULT) SORTBY OPTION:
  select char 2 to 8 of line 1 of bg fld "sort"
  put the selectedText into sortBy
  put the selectedChunk into selectAgain
  exit mouseUp

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 151 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=81 top=309 right=322 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----

-----------------------
-- PREV BUTTON STUFF --
-----------------------

On MOUSESTILLDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRLArrow
    exit mouseStillDown
  end if

  global getOutaHere -- TELLS HC TO IGNORE MOUSEUP

  if the commandKey is down or the shiftKey is down then
    go card 3
    exit to HyperCard
  else
    put 1 into getOutaHere
    if the number of this card = 3 then go to last card
    else
      go prev
    end if
  end if

End MOUSESTILLDOWN


On MOUSEUP

  -- GET HELP IF OPTIONKEY IS DOWN:
  if the optionKey is down and the commandKey is not down then
    helper helpRLArrow
    exit mouseUp
  end if

  global getOutaHere

  -- IF MOUSESTILL DOWN WAS RUNNING GET OUT:
  if getOutaHere = 1 then
    put empty into getOutaHere
    exit mouseUp
  end if

  -- GOES TO FIRST DATA CARD:
  if the commandKey is down or the shiftKey is down then
    go card 3
    exit mouseUp
  end if

  -- GOES TO LAST CARD IF THIS IS FIRST DATA CARD:
  if the number of this card = 3 then
    go last
    exit mouseUp
  end if

  -- NORMAL PREV WITH SCREEN LOCKED FOR PAINLESS UPDATE OF DATA:
  go prev

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 152 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=114 top=309 right=322 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----

------------------------------------------
-- NEXT BUTTON STUFF. SEE MORE COMMENTS --
-- IN PREV BUTTON (TO YOUR LEFT)        --
------------------------------------------

On MOUSESTILLDOWN

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRLArrow
    exit mouseStillDown
  end if

  -- TAKES YOU TO THE LAST CARD:
  if the commandKey is down or the shiftKey is down then
    go to card the number of cards
    exit to HyperCard
  end if

  -- ONE CARD AT A TIME & GET OUT WARNING
  -- FOR THE MOUSEUP HANDLER
  global getOutaHere
  put "1" into getOutaHere
  if the number of this card = the number of cards then
    go to card 3  -- SKIPS CARD 1 & 2
  else
    go next
  end if

End MOUSESTILLDOWN


On MOUSEUP

  -- GET HELP IF OPTIONKEY IS DOWN:
  if the optionKey is down and the commandKey is not down then
    helper helpRLArrow
    exit mouseUp
  end if

  -- IF MOUSESTILLDOWN WAS USED THEN GET OUT:
  global getOutaHere
  if getOutaHere = 1 then
    put empty into getOutaHere
    exit mouseUp
  end if

  -- THE LAST CARD COMMAND:
  if the commandKey is down or the shiftKey is down then
    go last
    exit mouseUp
  end if

  -- IF ON THE LAST CARD, DON'T GO TO CARD 1 OR 2:
  if the number of this card = the number of cards then
    go card 3
    exit mouseUp
  end if

  -- UNDER ORDINARY CIRCUMSTANCES:
  go next

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 153 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=309 right=322 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 1413 / 1413
-- text alignment: 1
-- font id: 204
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Edit ON
----- HyperTalk script -----

-------------------------------------
-- LOCK BUTTON STUFF (EDIT BUTTON) --
-------------------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpLock
    exit mouseUp
  end if

  -- GLOBALS, BASICS & QUICK EXIT:
  global firstTitle,firstStar,firstDirector
  play harpsichord
  get short name of me

  -- UNLOCK MODE:
  if IT is "Edit ON" then
    lock screen
    set the icon of me to 13262
    unlock screen
    if the shiftKey is down then show Menubar
    set name of me to "Edit OFF"
    set powerKeys to false
    set userlevel to 5
    exit mouseUp
  end if

  -- LOCK MODE:
  if IT is "Edit OFF" then
    lock screen
    set the icon of me to 1413
    unlock screen
    if the shiftKey is down then hide Menubar
    set name of me to "Edit ON"
    set powerKeys to true
    set userlevel to 1
    exit mouseUp
  end if

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 154 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=13 top=279 right=286 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label
----- HyperTalk script -----

------------------------
-- LABEL BUTTON STUFF --
------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpLabelBtn
    exit mouseUp
  end if

  -- BASICS:
  global labelMaster
  set cursor to 4

  -- CLEAR THE LABEL OUT WITH COMMANDKEY/SHIFTKEY:
  if the commandKey is down or the shiftKey is down then
    lock screen
    put empty into field "Label"
    put empty into labelMaster
    unlock screen with visual dissolve fast
    exit mouseUp
  end if

  -- PUT THE NEW LABEL IN WITH THE OLD ONES
  lock screen
  put line 1 of fld "Title" into tempTitle
  if last char of tempTitle = return then delete last char of tempTitle
  put tempTitle & "--" & field "Minutes" && "min." & return into temp
  put temp before labelMaster
  put line 1 to 3 of labelMaster into field "Label"
  put field "Label" into labelMaster
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 155 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=238 top=309 right=322 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Game
----- HyperTalk script -----

-----------------------
-- GAME BUTTON STUFF --
-----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpGame
    exit mouseUp
  end if

  global lastNo

  -- PICKING CATEGORY:
  answer "Choose a category: Stars or Directors." with "Stars" or "Directors" or "Cancel"

  -- STAR LOOP:
  if IT is "Stars" then
    set cursor to 4

    -- MAY NEED TO KEEP CHOOSING RANDOM CARD:
    repeat

      -- RANDOM CARD CHOOSEN AND DATA EXTRACTED:
      repeat
        put random(the number of cards) into cardNo
        if cardNo > 2 and cardNo ≠ lastNo then exit repeat
      end repeat

      -- DON'T WANT SAME CARD TWICE!
      put cardNo into LastNo
      set lockscreen to true
      push card
      go to card cardNo

      -- TOO MANY STAR TREK ADVENTURES:
      put field "Title" into tempTitle
      if tempTitle contains "Star Trek" then
        pop card
        unlock screen
        next repeat
      end if

      -- FILTER OUT EXTRANEOUS DATA:
      if last char of tempTitle = return then delete last char of temptitle

      -- IF BLANK OR RETURN ONLY, GET OUT:
      put field "Star" into tempStar
      if tempStar = empty or tempstar = return then
        pop card
        unlock screen
        next repeat
      end if

      -- ASSUMING DATA'S THERE, DELETE RETURN:
      if last char of tempStar = return then delete last char of tempStar

      -- $64,000 QUESTION:
      pop card
      unlock screen
      repeat  -- KEEPS ASKING IF YOU'RE WRONG!

        ask "Who starred in" && tempTitle & "?"
        go to this card  -- FORCES SCREEN REFRESH!
        push card  -- GOTTA KNOW WHERE TO COME BACK!

        -- IF YOU GIVE UP THIS HAPPENS:
        if IT is empty then
          lock screen
          go to card cardNo
          find whole tempStar in field "Star"
          unlock screen with visual dissolve fast
          select the foundChunk
          hide msg
          exit mouseUp
        end if

        -- ANY ANSWER AT ALL GETS THIS:
        put "Checking with our judges..."
        put IT into findAnswer

        -- NOW FOR A THOROUGH COMPARISON OF
        -- YOUR GUESS AND THE FIELD CONTENTS:
        if tempStar contains findAnswer then
          lock screen
          go to card cardNo
          put the number of items in fld "Star" into noItems
          repeat with i = 1 to noItems
            put item i of fld "Star" into foundAnswer
            if last char of foundAnswer = return then delete last char of foundAnswer
            if first char of foundAnswer = space then delete first char of foundAnswer

            -- IF IT PASSES THE MUSTER, CALAMITY ENSUES:
            if findAnswer = foundAnswer then
              put "You've gotten it right!!!"
              play PWee
              find whole foundAnswer in fld "Star"
              unlock screen with visual dissolve fast
              hide msg
              select the foundChunk
              hide msg
              exit mouseUp
            end if

          end repeat

          -- FOR AN ALMOST RIGHT ANSWER:
          put "Sor-r-ry..."
          wait for 20 ticks
          pop card
          unlock screen
          hide msg
          next repeat

        end if

        -- FOR A COMPLETELY WRONG ANSWER:
        -- (WASN'T EVEN CONTAINED IN FLD!)
        put "Sor-r-ry..."
        wait for 20 ticks
        pop card
        unlock screen
        hide msg
        next repeat

      end repeat

    end repeat

  end if


  -- DIRECTORS SAME AS STAR LOOP:
  -- (SEE ABOVE COMMENTARY)
  if IT is "Directors" then
    set cursor to 4

    repeat

      repeat
        put random(the number of cards) into cardNo
        if cardNo > 2 and cardNo ≠ lastNo then exit repeat
      end repeat

      put cardNo into LastNo
      set lockscreen to true
      push card
      go to card cardNo

      put field "Title" into tempTitle
      if tempTitle contains "Star Trek" then
        pop card
        unlock screen
        next repeat
      end if
      if last char of tempTitle = return then delete last char of temptitle

      put field "Director" into tempDirector
      if tempDirector = empty or tempDirector = return then
        pop card
        unlock screen
        next repeat
      end if
      if last char of tempDirector = return then delete last char of tempDirector

      pop card
      unlock screen

      repeat

        ask "Who directed" && tempTitle & "?"
        go to this card
        push card


        if IT is empty then
          lock screen
          go to card cardNo
          find whole tempDirector in field "Director"
          unlock screen with visual dissolve fast
          select the foundChunk
          exit mouseUp
        end if

        put "Checking with our judges..."
        wait 1 secs

        put IT into findAnswer

        if tempDirector contains findAnswer then
          lock screen
          go to card cardNo
          put the number of items in fld "Director" into noItems
          repeat with i = 1 to noItems
            put item i of fld "Director" into foundAnswer
            if last char of foundAnswer = return then delete last char of foundAnswer
            if first char of foundAnswer = space then delete first char of foundAnswer
            if findAnswer = foundAnswer then
              put "You've gotten it right!!!"
              play PWee
              find whole foundAnswer in fld "Director"
              unlock screen with visual dissolve fast
              hide msg
              select the foundChunk
              hide msg
              exit mouseUp
            end if
          end repeat
          put "Sor-r-ry..."
          wait for 20 ticks
          pop card
          unlock screen
          hide msg
          next repeat

        end if

        put "Sor-r-ry..."
        wait for 20 ticks
        pop card
        unlock screen
        hide msg
        hide msg
        next repeat

      end repeat

    end repeat

  end if

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 158 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=274 top=309 right=322 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
-- HELP STUFF:
-- INTRO TO THE IN-LINE HELP SYSTEM

On MOUSEUP

  -- DISSOLVE TV DATA TO WHITE:
  set cursor to 4
  lock screen
  show fld "MaskScreen"
  unlock screen with visual dissolve fast

  -- CHANGE CURSOR & DISPLAY HELP PICT:
  set cursor to 27902
  dispPICT "HelpIntro",0,0,24,40

  -- DISSOLVE BACK TO TV DATA
  get the result  -- CATCHES ERRORS
  set cursor to 4
  lock screen
  hide fld "MaskScreen"
  unlock screen with visual dissolve fast

  -- POST ERRORS IN MSG BOX:
  if IT contains "ot" then put IT

end MOUSEUP



-- part 159 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=29 top=23 right=67 bottom=82
-- title width / last selected line: 0
-- icon id / first selected line: 6732 / 6732
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VideoStak ◊ Begin Here
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  visual dissolve fast
  go to the short name of me
end mouseUp



-- part 167 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=24 top=247 right=263 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install1


-- part 168 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=96 top=181 right=193 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Record Date
----- HyperTalk script -----

-----------------------
-- RECORD DATE STUFF --
-----------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRecDate
    exit OPENFIELD
  end if

  global fieldIsOpen
  put "1" into fieldIsOpen

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------

On CLOSEFIELD

  global fieldIsOpen
  put empty into fieldIsOpen

  if bkgnd field "Record Date" is not empty then

    put "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" into MONTHES
    put bkgnd field "Record Date" into OLDATE
    put char 1 to 3 of bkgnd field "Record Date" into BEGINDATE

    if BEGINDATE is in MONTHES then
      repeat with i = 1 to the number of items in MONTHES
        if BEGINDATE = item i of MONTHES then
          put i & "/" into NUDATE
          get word 2 of OLDATE
          if last char of IT = "," then delete last char of IT
          put IT after NUDATE
          put "/" after NUDATE
          put char (number of chars in OLDATE - 1) of OLDATE after NUDATE
          put last char of OLDATE after NUDATE
          put NUDATE into bkgnd field "Record Date"
        end if
      end repeat
    end if

    if char 1 of OLDATE = 8 or char 1 of OLDATE = 9 then
      if the number of chars in OLDATE = 6 then
        put char 1 of OLDATE into YY
        put char 2 of OLDATE after YY
        put char 3 of OLDATE into MM
        put char 4 of OLDATE after MM
        put char 5 of OLDATE into DD
        put char 6 of OLDATE after DD
        put MM & "/" & DD & "/" & YY into bkgnd field "Record Date"
      end if
    end if

    if char 1 of OLDATE is in 1234567890 and (OLDATE contains "-" or OLDATE contains space) then
      if char 1 to 3 of word 2 of OLDATE is not in MONTHES then
        repeat with i = 1 to the number of chars in OLDATE
          if char i of OLDATE is in 1234567890 then put char i of OLDATE after NUDATE
          if (char i of OLDATE is "-" or char i of OLDATE is " ") then put "/" after NUDATE
        end repeat
        put NUDATE into bkgnd field "Record Date"
      end if
    end if

    if char 1 of OLDATE is in 1234567890 and char 1 to 3 of word 2 of OLDATE is in MONTHES then
      repeat with i = 1 to the number of items in MONTHES
        if char 1 to 3 of word 2 of OLDATE = item i of MONTHES then
          put i into NUDATE
        end if
      end repeat
      put "/" after NUDATE
      put word 1 of OLDATE after NUDATE
      put "/" after NUDATE
      put char (the number of chars in OLDATE - 1) of OLDATE after NUDATE
      put last char of OLDATE after NUDATE
      put NUDATE into bkgnd field "Record Date"
    end if

  end if

End CLOSEFIELD




-- part 169 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=181 right=193 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Record Time
----- HyperTalk script -----

--------------------
-- RECORDING TIME --
--------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRecDate
    exit OPENFIELD
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 170 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=254 top=181 right=193 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 128
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Record Channel
----- HyperTalk script -----

-----------------------
-- RECORDING CHANNEL --
-----------------------

On OPENFIELD

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpRecDate
    exit OPENFIELD
  end if

End OPENFIELD

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 171 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=150 top=309 right=322 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New
----- HyperTalk script -----

----------------------
-- NEW BUTTON STUFF --
----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpNew
    exit mouseUp
  end if

  --GLOBALS:
  global tempUL,tempPK,tempEdit,nuCard

  -- BASIC RECORDING OF LEVELS AND SET-UP:
  set cursor to 4
  if the short name of bg btn id 153 = "Edit ON" then send mouseUp to bg btn id 153
  put 1 into nuCard
  -- LETS OPENCARD HANDLER KNOW IT'S A NEW CARD!

  set lockscreen to true
  domenu "New Card"

  -- FILL IN THE CLASS FIELDS & SORT FIELD
  -- WITH APPROPRIATE DATA:
  repeat with i = 2 to 15
    put "Ω " & the short name of field i into field i
  end repeat
  put "  TITLE " & return into line 1 of field "Sort"
  put "  STAR " & return into line 2 of field "Sort"
  put "  DIRECTOR " & return into line 3 of field "Sort"
  put "  RATING " & return into line 4 of field "Sort"
  put "  MINUTES " & return into line 5 of field "Sort"
  put "  YEAR " & return into line 6 of field "Sort"
  put "  COLOR " & return into line 7 of field "Sort"
  put "  OWN " & return into line 8 of field "Sort"
  put "  RECORD DATE " & return into line 9 of field "Sort"

  -- GET BLINKING CURSOR IN FIRST FIELD:
  put 0 into nuCard
  unlock screen with visual dissolve fast
  type tab

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 172 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=13 top=287 right=300 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----

-----------------------
-- PRINT LABEL STUFF --
-----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpPrint
    exit mouseUp
  end if

  -- DECLARE GLOBALS:
  global labelMaster,window,printBackTo

  -- CHECK FOR NO DATA:
  if fld "label" is empty then
    answer "VCR tape label is empty--click Label Button."
    exit mouseUp
  end if

  -- CHECK FOR COLD FEET:
  answer "Sure you want to print this label?" with "No" or "Yes"
  if IT is "No" then exit mouseUp

  -- GO TO THE PRINT UTIL STACK & PRINT:
  set cursor to 4
  put the name of this stack into printBackTo
  go to stack "VideoStak ◊ Don't Open 1"
  put labelmaster & return into card field "Label"
  domenu "Print Report..."

  -- THEN COME BACK:
  set cursor to 4
  put empty into card field "Label"
  visual dissolve fast
  go to printBackTo

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 173 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=251 top=279 right=300 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Alarm
----- HyperTalk script -----

---------------------------------------
-- ALARM/CURRENT DATE BUTTON'S STUFF --
---------------------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpAlarm
    exit mouseUp
  end if

  -- LOOKS FOR TODAY'S DATE:
  set cursor to 4
  lock screen
  find whole the short date in fld "Record Date"
  if the result is not empty then
    unlock screen
    put "Found nothing for today. Try sorting by record date."
    exit mouseUp
  end if
  unlock screen with visual dissolve fast
  select the foundChunk

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 175 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=278 right=301 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 7
-- part name: Label


-- part 176 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=344 top=278 right=285 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: titleMaster
----- HyperTalk script -----

-----------------
-- TITLE STUFF --
-----------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexTabs
    exit mouseUp
  end if

  global hiButton,titleMaster,master,lineNo

  -- MOVER TITLES INTO THE CENTRAL INDEX:
  put titleMaster into master

  -- REAFFIRM THE HILITING OF INDEX TABS:
  put number of me into hiButton
  repeat with i = 30 to 33
    set hilite of bkgnd btn i to i = number of me
  end repeat

  -- NOW UPDATE THE ACTUAL INDEX WINDOW:
  lock screen
  put line 1 to 12 of master into field "window"
  put 1 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 177 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=376 top=275 right=282 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: starMaster
----- HyperTalk script -----

---------------------------------
-- STAR STUFF LINE TITLE STUFF --
-- SEE TITLE INDEX TAB BUTTON  --
---------------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexTabs
    exit mouseUp
  end if

  global hiButton,starMaster,master,lineNo
  put starMaster into master
  put number of me into hiButton
  repeat with i = 30 to 33
    set hilite of bkgnd btn i to i = number of me
  end repeat
  lock screen
  put line 1 to 12 of master into field "window"
  put 1 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 178 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=408 top=272 right=279 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: directorMaster
----- HyperTalk script -----

-------------------------------------
-- DIRECTOR STUFF LINE TITLE STUFF --
-- SEE TITLE INDEX TAB BUTTON      --
-------------------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexTabs
    exit mouseUp
  end if

  global hiButton,directorMaster,master,lineNo
  put directorMaster into master
  put number of me into hiButton
  repeat with i = 30 to 33
    set hilite of bkgnd btn i to i = number of me
  end repeat
  lock screen
  put line 1 to 12 of master into field "window"
  put 1 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 179 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=447 top=269 right=276 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: classMaster
----- HyperTalk script -----

----------------------------------
-- CLASS STUFF LINE TITLE STUFF --
-- SEE TITLE INDEX TAB BUTTON   --
----------------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexTabs
    exit mouseUp
  end if

  global hiButton,ClassMaster,master,lineNo
  put ClassMaster into master
  put number of me into hiButton
  repeat with i = 30 to 33
    set hilite of bkgnd btn i to i = number of me
  end repeat
  lock screen
  put line 1 to 12 of master into field "window"
  put 1 into lineNo
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 180 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=87 top=90 right=183 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 221
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Sort
----- HyperTalk script -----
On MOUSEUP

  -- BASICS
  global sortBy,selectAgain
  put the short name of me into FName
  put ((item 2 of the clickloc - item 2 of the rect of me) div the textheight of me) +1 into LNum
  if LNum > 9 then exit mouseUp
  put the number of chars in line LNum of me into NChars

  -- SELECT TEXT IN MAIN FIELD
  select char 2 to NChars of line LNum of field FName

  -- FILTER THE SELECTION & PUT INTO GLOBAL VAR
  put selection into sortBy
  put the selectedChunk into selectAgain

End MOUSEUP





-- part 181 (button)
-- low flags: 80
-- high flags: 2002
-- rect: left=176 top=99 right=131 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 223
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Sort
----- HyperTalk script -----
on mouseUp

  -- BASICS
  global sortby,selectAgain
  if sortBy is empty then
    answer "Click on an item to sort by."
    exit mouseUp
  end if
  select selectAgain
  set cursor to 4
  delete char 1 of sortBy
  delete last char of sortby

  -- DETERMINE SORT ORDER AND THEN SORT
  if sortBy = "Minutes" or sortBy = "Year" then
    lock screen
    sort ascending numeric by field sortBy
    go card 3
    put empty into sortby
    hide bg btn "Cancel"
    hide bkgnd btn "Sort"
    hide field "Sort"
    hide card pict
    unlock screen with visual dissolve fast
    exit mouseUp
  end if
  if sortBy = "Record Date" then
    lock screen
    sort ascending dateTime by field sortBy
    go card 3
    put empty into sortby
    hide bg btn "Cancel"
    hide bkgnd btn "Sort"
    hide field "Sort"
    unlock screen with visual dissolve fast
    exit mouseUp
  end if

  lock screen
  sort ascending text by field sortBy
  go card 3
  put empty into sortby
  hide bg btn "Cancel"
  hide bkgnd btn "Sort"
  hide field "Sort"
  unlock screen with visual dissolve fast

end mouseUp




-- part 183 (button)
-- low flags: 80
-- high flags: 2002
-- rect: left=176 top=139 right=174 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 99 / 99
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  hide the target
  hide bkgnd btn "Sort"
  hide field "Sort"
  unlock screen with visual dissolve fast
end mouseUp



-- part 190 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=208 top=309 right=322 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: Kill
----- HyperTalk script -----

-----------------------
-- KILL BUTTON STUFF --
-----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpKill
    exit mouseUp
  end if

  -- A CHANCE TO BAIL OUT:
  answer "Sure you want to kill this card?" with "Kill" or "Cancel"
  if IT = "Cancel" then exit mouseUp

  -- GLOBALS & BASICS:
  global killCard,window,labelMaster

  -- BASIC RECORDING OF LEVELS AND SET-UP:
  set cursor to 4
  put "1" into killCard
  put fld "Window" into window
  put fld "Label" into labelMaster

  -- CLEAR GET FIELDS TO RE-ADJUST INDICES:
  repeat with i = 16 to 18
    set cursor to 4
    if fld i = empty then next repeat
    lock screen
    send openField to fld i
    put empty into fld i
    unlock screen
    send closeField to fld i
  end repeat

  -- GRAB DATA FOR THE NEXT CARD:
  set cursor to 4
  set lockscreen to true
  put fld "Window" into Window

  -- KILL-L-L-L IT!
  domenu "Delete Card"
  put empty into killCard

  -- NOW UPDATE THE CARD LANDED ON:
  put window into fld "Window"
  if labelmaster ≠ empty then put labelMaster into fld "Label"
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 191 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=90 top=279 right=300 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LabelReal
----- HyperTalk script -----

-----------------------
-- CLEAR LABEL STUFF --
-----------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpLabelReal
    exit mouseUp
  end if

  -- EMPTY THE LABEL:
  global labelmaster
  lock screen
  put empty into fld "Label"
  put empty into labelmaster
  unlock screen with visual dissolve fast

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------




-- part 192 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=114 top=248 right=263 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Credits
----- HyperTalk script -----

--------------------------
-- CREDITS BUTTON STUFF --
--------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpCredits
    exit mouseUp
  end if

  -- GO TO CREDITS CARD WITH LOCK:
  set cursor to 4
  lock screen
  set lockmessages to true
  push card
  go to card "Credits"
  pop card

  -- GO TO CREDITS CARD WITHOUT LOCK:
  push card
  go to card "Credits"
  unlock screen with visual dissolve fast
  play drawer
  set cursor to 27902 -- SPEC TV CURSOR

  -- HOLD THERE UNTIL CLICK:
  repeat
    if the mouse is down then
      exit repeat
    end if
  end repeat

  -- NOW GO BACK:
  set cursor to 4
  lock screen
  pop card
  unlock screen with visual dissolve fast
  play drawer
  set lockmessages to true

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 194 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=399 top=311 right=323 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: indexIt
----- HyperTalk script -----

--------------------------
-- INDEX THE STAK STUFF --
--------------------------

On MOUSEUP

  -- GET HELP RESOURCE, BUT NOT IF PEEKING:
  if the optionKey is down and the commandKey is not down then
    helper helpIndexStak
    exit mouseUp
  end if

  if the short name of this card = "Opening" or the short name of this card = "Credits" then exit mouseUp

  -- BIG DECISION:
  answer "Index the entire stack? (This takes a while!)" with "Index" or "Cancel"
  if IT = "Cancel" then exit mouseUp

  -- GET READY TO DO ENTIRE STACK:
  set cursor to 4
  lock screen
  set lockmessages to true
  push card

  global titleMaster,starMaster,directorMaster,hiButton,lineNo,master
  global window

  -- START WITH A CLEAN SLATE:
  if lineNo = empty then put 1 into lineNo
  if hiButton = empty then put 30 into lineNo
  put empty into titleMaster
  put empty into starMaster
  put empty into directorMaster
  set lockmessages to true

  --  GO CARD-TO-CARD:
  repeat with i = 3 to the number of cards

    -- GO TO FIRST CARD AND GIVE MSG REPORT:
    go to card i
    put "CARD" && i && "OF" && the number of cards

    -- MAKE A TITLE ENTRY INTO AN INDEX ITEM:
    if field "Title" ≠ empty and the number of chars in field "Title" > 1 then
      put field "Title" into piTitle
      put "∂" before piTitle
      if last char of piTitle = return then
        put piTitle after titleMaster
      else
        put piTitle & return after titleMaster
      end if
    end if

    -- MAKE A STAR ENTRY INTO AN INDEX ITEM:
    if field "Star" ≠ empty and the number of chars in field "Star" > 1 then
      put field "Star" into varStar
      -- THERE MAY BE MORE THAN 1 STAR:
      repeat with x = 1 to the number of items in varStar
        if char 1 of item x of varStar = space then delete char 1 of item x of varStar
        put item x of varStar into piStar
        put "∂" before piStar
        if piStar is in starMaster then
        else
          if last char of piStar = return then
            put piStar after starMaster
          else
            put piStar & return after starMaster
          end if
        end if
      end repeat
    end if

    -- MAKE A DIRECTOR ENTRY INTO AN INDEX ITEM:
    if field "Director" ≠ empty and the number of chars in field "Director" > 1 then
      put field "Director" into varDirector

      -- THERE MAY BE MORE THAN 1 DIRECTOR:
      repeat with y = 1 to the number of items in varDirector
        if char 1 of item y of varDirector = space then delete char 1 of item y of varDirector
        put item y of varDirector into piDirector
        put "∂" before piDirector
        if piDirector is in directorMaster then
        else
          if last char of piDirector = return then
            put piDirector after directorMaster
          else
            put piDirector & return after directorMaster
          end if
        end if
      end repeat
    end if

  end repeat

  -- GO TO THE FIRST CARD AND UPDATE THE MASTER FIELDS:
  go to card "Opening"
  put "Storing the title index..."
  put sortLines(titleMaster) into card field "titleMaster"

  -- GET RID OF BLANK LINES FROM EXCESS RETURNS:
  repeat
    if line 1 of card field "TitleMaster" is empty then
      delete line 1 of card field "titleMaster"
    else
      exit repeat
    end if
  end repeat
  put card field "titleMaster" into titleMaster

  -- PUT THE NEW SORTED STARS INTO MASTER STAR FIELD:
  put "Storing the star index..."
  put sortLines(starMaster) into card field "starMaster"

  -- GET RID OF BLANK LINES FROM EXCESS RETURNS:
  repeat
    if line 1 of card field "starMaster" is empty then
      delete line 1 of card field "starMaster"
    else
      exit repeat
    end if
  end repeat
  put card field "starMaster" into starMaster

  -- PUT THE NEW SORTED STARS INTO MASTER STAR FIELD:
  put "Storing the director index..."
  put sortLines(directorMaster) into card field "directorMaster"

  -- GET RID OF BLANK LINES FROM EXCESS RETURNS:
  repeat
    if line 1 of card field "directorMaster" is empty then
      delete line 1 of card field "directorMaster"
    else
      exit repeat
    end if
  end repeat
  put card field "directorMaster" into directorMaster

  -- GO BACK & GIVE STATUS:
  pop card
  put "Just about done..."

  -- UPDATE THE WINDOW WITH THE APPROPRO MASTER:
  if hiButton = 30 then  -- TITLE BUTTON!
    put titlemaster into master
    put line lineNo to (lineNo + 11) of master into window
    put window into field "Window"
  end if
  if hiButton = 31 then  -- STAR BUTTON!
    put starMaster into master
    put line lineNo to (lineNo + 11) of Master into window
    put window into field "Window"
  end if
  if hiButton = 32 then  -- DIRECTOR BUTTON!
    put directorMaster into master
    put line lineNo to (lineNo + 11) of Master into window
    put window into field "Window"
  end if

  -- DON'T NEED TO MESS WITH THE CLASSIFICATIONS
  -- AS THEY NEVER CHANGE OR GET DELETED!

  -- TIDY UP:
  send mouseUp to bg btn hiButton
  unlock screen with visual dissolve fast
  set lockmessages to false
  put "All done with the indexing!"

End MOUSEUP

-----------------------------------
-- UCMD'S LIKE 'HELPER' IN BKGND --
-----------------------------------





-- part 204 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=22 top=38 right=239 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MaskScreen